home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / WAITCHAR.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  285b  |  23 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3.  
  4. FUNCTION WaitforCharacter$ (a$)
  5.   
  6.     DO
  7.         w$ = ""
  8.  
  9.         WHILE w$ = ""
  10.             w$ = UCASE$(INKEY$)
  11.         WEND
  12.       
  13.         IF INSTR(UCASE$(a$), w$) THEN
  14.             WaitforCharacter$ = w$
  15.             EXIT FUNCTION
  16.         END IF
  17.  
  18.         
  19.     LOOP
  20.  
  21. END FUNCTION
  22.  
  23.